home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 January / Macworld (2000-01).dmg / Updaters / DirXtra HTML204 / xtradoc.dir / 00022_Script_22 < prev    next >
Text File  |  1999-02-22  |  876b  |  25 lines
  1. on mouseUp
  2.   -- declare the globals
  3.   global ghtmlnormfont, ghtmlheadfont, ghtmlttfont, ghtmlfontsize
  4.   global ghtmllinkred, ghtmllinkgreen, ghtmllinkblue
  5.   global ghtmlsmoothness, ghtmlmargin
  6.   
  7.   -- retrieve the informations in the fields
  8.   set ghtmlnormfont = the text of field "normfont"
  9.   set ghtmlttfont = the text of field "ttfont"
  10.   set ghtmlheadfont = the text of field "headfont"
  11.   set ghtmlfontsize = value(the text of field "fontsize")
  12.   
  13.   set ghtmllinkred = value( the text of field "red" )
  14.   set ghtmllinkgreen = value( the text of field "green" )
  15.   set ghtmllinkblue = value( the text of field "blue" )
  16.   
  17.   set ghtmlsmoothness = value( the text of field "smooth" )
  18.   set ghtmlmargin = value( the text of field "margin" )
  19.   
  20.   -- setup the fonts
  21.   htmlsetdefaults "html"
  22.   
  23.   -- cause a redraw of the cast member
  24.   htmlredraw "html"
  25. end